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rob d{ 

|ocal($n ,»£2,$«1 .5g2.»flr,»£2r,?glr,Sg2r,$D 1 ,Sa2. $a,?«.$r t |wr t *w); 

*a=637813«.0; 

$*=0.006694470; 

$pi=3. 14159265353589; 

Sflr= *_[0]*$pi/180.0; 

$f2r= $Jir$pi/l80-0; 

5gl*= »^f2r*P»/l80.0; 

$g*r= $ J3r$p>/180.0; 

Sn1=$a/(s<|ri (1.0-Je*ain($fl r)*Bin<Sflr))); 

$xl=»nl*coo($nr)*coft(»glr); 

$yl=*nl*«*Wlr)*»in<$glJr>; 

$zl=$nl*(i.0-5e)*«in($nr); 

$D2=fW(sqrt <1.0-So**in($f2r)**in(5f2r>)): 

$*2=*a2*«»<$£2r)*c»»<*g2T); 

$y2=»n2*cos($r2r>*sin(H2r); 

$x2=$n2*(1.0-*)*$itt($Rr); 

$r=«irt((>xl-fc2)*($xl-$x2>+<5y1'»y2)*«y1-Sy2)+(5*1^2)*(8 zl - 
$22)); 

$wr= atan2 ($i/2.0/3o. avt(M$r/2,0/*a)"($r/2.0/*o))); 
return (idt($a*2.0*$wr/1000)): 
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[000 1 ] 

[M©js-t 3&ffi»§?] 

co?8iBtt'fy>-*» hfc*tt*tf»#v***-f h©««*iRK:B8l/, ^fc^^-T^^ft 
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[«*©««] ^ m 

ititm^eo cis»««^-excD«*«*4Hictaffl«n*) ©** 

#©f§£tflU#©fflA1i« (ftffi* ^-*TFUX, ^fi< UXA4£) ^iitt 

[ 0 0 0 3 ] 

t,> e «*tf, ttBrfcHLTtt, ft3t#£«. fi£Jt©ftf?r-e«4 < . (MX. 

4 if) ^SPilUHl^H. ft«tl»Elft««0»««millt»HT»6h*t5li:4 

*v>««««»6tift^tf«»o«», ^RK-r^*tfKffiA,-e^s©K, ffimwaaiffR^a 

o 

[ 0 0 0 4 ] 

Rft © ^ }fi ^ h 7 » E« * ^ * O ft T # Jl * «* -T * ^ A tt M T? * S . 

lc ^ o 4 fro fc © *» U ti 4 !/■> o 
[ 0 0 0 5 ] 

ts^i^ssmTtafroftt^uk^*^*. a ± amis 
«*#4h*»6x-*'<-x*«ial, *«*4WW»*affl"rntf*«tt^Rr*Tftt4 

©tcH*4fH*«S1gJl3X bjV 
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x- M-XOAf 3 x hfffi^i: i: T-*^-XftM^&t2ttgiBKiKS:5fr£-5 
[0 0 0 7 3 

[U!js*isi*f *fc«>©#®] 

1. »ffi#^k»««**3BUC'6»07 f -*^-X (HgEliacf 1 -^^) ( 1 10 

unm®. mmmx-itrj: < , ^ae x x) . - Ate *> < „ 

^i:l/^IBE8^-^xSo 1«ffi^^^XxA(i6*x-^;I/©i©gi|ia (x 1 , yl), ( 

x2, y2) , . . . (xn, yn) £ Z <Dtkm? 5 £ i©^figfi (xO. yO) 6 

» ( x 0 , yO) t ( x 1 . y 1) OJ*. (x0, yO) t ( x 2 . y 2) <D», . . . 

, (xO, yO) t (xn, yn) <D ft <D Z tl ¥ tl ICD T mffi* Hi ti> Z 0 

4. »H8fiO» (xa, ya) i: (xb, yb) frSHfOEltt-SEftSS. It 20 

C 0 0 0 8 ] 

««»«©WA»6e(l*tHI^*¥JB*UTKKlH^r*. 2 J& & 4) ft & « £ ( 0 , , A, 
), (0 2 , A 2 ) A^^#0«sSiBffi«l S ZMM? S^MHiixT-p^a. 
«»* (x , . y , , z,), (x 2 . y 2 , z 2 ) fcf 5 BEBt 
r = sqrt ( ( x 2 - x , ) 2 + (y 2 - y, ) 2 + (z 2 -z,) 2 ) 

# WW l lT', &£9tttt« N | = R/sqr t (1-e 2 s 1 n * , } 1 N 2 30 

= R / s q r , ('-«2 sin02 ) > f c f£ L>R=6f 378 , 136m ( t& « © * 

jl^S), e = 0. 0 167 (M©8fU>30 h L T. 

x i = N | •costffi c o s A i , x z =N z •cos0 2 cosA 2 

z l =N I" < 1 ~ <= 2 ) sin*,. z 2 =N 2 • (1-e 2 ) s 1 n 0 2 * * ' * » 

So 

Y = s i n - 1 ( (Rn/2) /N) , N = (N, + N 2 ) / 2 

^IT, ¥Siifl (#fiti7i?7^) >FA'*$5i, 2 tfU±i IS © tf! M E «t S ti^Sl? 

40 

S = 2 • N • ¥ 

igTJHItTttifeStf, WW«fcJ:*W-»«fiatt#JI»A^*sefiT<6titf, *B±fc«T? 

Ti/^So Siatf iS^i: C ST'fcfcitMtfAt < M©3ti#£#lt LT V^fci^ (EE 
(81) OSIiCiK 

[ 0 0 0 9 ] 
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TittlEf 3„ £1\ H8A bfc®fsH#^i:^J!SigJS*$t?x-^^-Xtcfl!i(D5iaj!)^ofc 

tut, ftg. m© 3 a a © * ^ «i m LTf-7;^ff)fi l (01) , -9- 50 



JP 2004-21963 A 2004. 1. 22 



mummt 7 «jt*$> 0 , #4L4^8®if*^^Tt« 5, 000. 
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D«rtom5S{cfeofcili:^e)fet>frSo V ~ (,*£; =i y ¥ *. ~ 2 t J > 2 - Z v h 

[0010] 10 
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IS§*A*t§^C^l©gI-iSA^SJti§, 4ft*l«»* UifiUteW-KSlc b 20 

o 

[0012] 

e r 1) CioTilStlS. tfc, x- £ ^ - X ti , MySQL&ifOx-^-XRa 30 
^tfi (SQL) 1*4P e r 1 ^7AO(f*^, INSERT, SE 

LECT&H<DSQL3V> K £ & 3S fc i;Hfr<*-e5o i2tH^(c«gigafx-7;l/fc<k 
tf £ft T-T^Wi C R E A T Envy Kt'SISLT* < 0 3 fc ^ © IE £ 00 * 

St. 2fSli:^iLftf-7;l'Ka i i n <0 z i p, 1 do. ke i do«fl-©JHlfc 

[00 1 3 ] 

(Mffi) £8t*#i6 5 ffrJSfc^ Perl Ofi*a* M«*ffl ^ T«» C «■ * * . 0 
4K-?-©:3 — -r^r > ^ #1 £ ?s t* <, 
[0014] 

**^^igffl-r S^^fi, S-f 2 ^loiK)!i'/>?tf 5i^(c(i, tta;is&& ri 40 
n«Tj KZLLT. ISSftfcS^OftBr #iS^ C t £ £ -£ & ^ <}: 5 fc LT l/>l> 0 

u« &pgssifi# rE«tf l+Dj tttiA?tinif, * ©m tfc^fttf gew^a^ < $ 

&<&LT, ffi¥©£ft©ftffi£3!2iLi63 RTMtf&So 
[0015] 

*1\ W*3S 1 lc!B®2 ttfcMfSfc^T-fct, ffi^Mi: (DSliffilf ffi £ £ ? £ £? ft fc i: o 
T, <k»)iE«*««*#iL*Ci:*<Rr<ifcftofc. fl&& ft © ft Rfr * tf* L T 4 * 

SfcttT-fcofctf , C<Df£fPifc J: 0, ft © ft ffi * HBK L * e> , KKWffl4«f|g* 
(*-©#ft £ <Dm8£tf ifi^frfgfr) fcWSSK-^a. £ C t tf-Bimt & o fc 0 50 
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[0016] 

[02] gif-7;i/c&i/3-K©i^^iswicgtaT'a&5o 

[0 3] S Q Lf gT'f-7;^it5*^©Eai^^tiT'fe5. 

[0 4] ifi«BSE8i^W-©^5Pe r 1 f u 9 ^ An - x > ^ fll^T 0T* & £ „ 
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3 3 3 

CREATE TABLE idokcido ( 

rip int<7) DEFAULT XT NOT NULL, 

ido decimal(8,4) DEFAULT U00OO* NOT NULL, 

keido detimal(8,4) DEFAULT '0.0000' NOT NULL, 

PRIMARY KEY(zip) 

); 

CREATE TABLE kaiin < 

Kaiiabangou char<12) DEFAULT Ttaiinbangou' NOT NULL, 
Password char(12) DEFAULT Tassword' NOT NULL, 
name char(30) DEFAULT 'namel' NOT NULL, 
EmailAddress char<50) DEFAULT 'EmailAddresa' KOT NULL, 
zip char(7) DEFAULT 'rip' NOT NULL, 
address char(200) DEFAULT 'addressy NOT NULL, 
phone char(20) DEFAULT phone' NOT NULL, 
ido dedmal(8,4) DEFAULT '0.0000' NOT NULL, 
keido derimal(8,4) DEFAULT UOOOO' NOT NULL. 
PRIMARY KEY(Kaiinbangou) 
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sub d{ 

loca1($n,$f2.$gL$g2.$nr,$f2r,$glr,$B2r.$Dl,$n2.$a.$e.$r.$wr,$w); 

$a=6378136.0; 

$e=0.006694470; 

$pi=3. 14159265353589; 

$flr= $J0)*$pi/180.0; 

$£2i* $_[lj*$pi/180.0; 

$glr« $_[2J*$pi/180.0; 

*g2r= $_[3J*$pi/180.0; 

$nl=$a/(sqrt <1.0-$e*sin($flr)*8in($nr))): 

$z l=$n 1 *co8<$flr)*co8($glr); 

$yl=$nl*cos($flr)*sin($glr); 

$zl=$nl*(1.0-$e)*flin<$flr); 

$n2=$a/(sqrt (1.0-$e*sin($f2r)*8in($f2r))); 

$x2=$n2*co8(»f2r)*cos($g2r); 

$y2=$n2*cos($f2r)* 8 in($g2r); 

$z2=$n2*(1.0-$e)*sin(*f2r); 

$r=8qrt((JxL$z2)*($xl-$3i2)+($yl-$y2)*($yl-$y2)+<$zl-»z2)*($zl- 
$*2»; 

$wr= atan2 (*r/2.0/$a, sqrt(l-($r/2.0/*a)*($r/2.0/$a))); 

return (iat($a*2.0*$wr/1000)); 

> 
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